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MODULE RM3UPDDEL (LANGUAGE £84. 15$52) ’ 
IDENT = ‘'Vv04-000' 
= 


) 
BEGIN 


eee eRe ARR AERA OTA AAA HERAT ETAT EAE eee eee eee teeter eeeeeeeeeeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


a 
” 
* 
x 
® 
a 
® 
a 
! ft 
ie TRANSFERRED. 2 
'e ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. , 
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! 
i FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

: ABSTRACT: 

This module contains routines common to SUPDATE and S$DELETE 
ENVIRONMENT : 

VAX/VMS OPERATING SYSTEM 

' 


AUTHOR: Todd M. Katz RE-CREATION DATE: 17-Jul-1982 


MODIFIED BY: 


v03-009 JwT0183 Jim Teague 4 2t-May=1984 
Fix cause of infrequent ‘invalid RRV'’ error. If a 
record not in its original bucket is moved out of 
its current bucket as a result of a split, then any 
one who wants that record will get an “‘invalid RRV 
error any time 1) after the split, and 2) before the 
RRV gets updated to point to the new location o 
the record. The solution for now is just to retry 
the RRV a number of times. Note that if anything 
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3 8 058 1! keeps the process from updating the RRV (waiting on 3 
$ 9 059 1! the CPU, for example), large numbers of retries . 
; ¢' Beet } } may be necessary for those who are after the record. : 
; 6 Bees 1! v03-008 ee Maria del C. Nasr 15-Mar-1983 : 
3 o7 Ror ! More Linkages reorganization : 
; 65 $088 1! v03-007 MCNO001 Maria del C. Nasr 01-Mar-1983 ; 
: 68 Bee : } Reorganize Linkages : 
>; 668 0068 1! V03-006 TMK0004 Todd M. Katz 03-Feb-1983 : 
; #68 34 Add support for Recovery Unit Journalling and RU ROLLBACK ; 
; 70 070 1! Recovery of ISAM files. If RMS is within a ee | Unit and ; 
ae 0071 1! pseudo record locking is enabled, then make sure all required ; 
; f Bn7¢ : record locking is done. | : 
: 676 0074 1! v03-005 RASO116 Ron Schaefer 18-Jan-1983 $ 
; 2 0075 1! Enhance TMKO0O03 to match the corresponding .BUG correction; 3 
; pore 1 by returning the status of RMS$_RRV rather than RMS$_BU : 
Pe ag 0077 1! if the the eileen fails. AlSo simplify the IF-THEN-ELSE : 
3 4: ith 4 : logic during repositioning. : 
; @& 0080 1! V03-004 TMK0003 Todd M. Katz 27-Dec-1982 3 
in) 0081 1! I have added another method of positioning to the pr inery data : 
;- 0082 1! record to be deleted/updated. This method is used when the F 
; 85 0083 1! attempt to position to the primary data record by means of its ; 
> ae 0084 1! RFA fails because the RFA is incorrect, or has been deleted, and | : 
; 8 008s 1! RMS positioned orginally to the current primary data record by PF 
; 0086 1! means of the primary index. In this case RMS knows that the : 
36 6S 0087 1! record must be somewhere in the file, because it is the current 3 
; 0088 1! record for this stream, and that the primary key of the record 3 
;. 0089 1! resides in keybuffer 2. This primary key together with the RFA 3 
:; 90 0090 1! is used to position to the current primary data record by ; 
ca: Dy 0091 1! poerciing the primary index by exact key value and comparing the : 
5 9 0092 1! RFA of the current primary data record with the RFA saved in 3 
; 0093 1! each of the primary data records with this key value unzil a ; 
; 94 0094 1! match is found. 3 
; 9 0095 1! 3 
s © 0096 1! v03-003 KBT0236 Keith 8. Thompson 23-Aug-1982 : 
.- oF 0097 1! Reorganize psect : 
; 0098 1! 3 
; «4.99 0099 1! v03-002 TMK0002 Todd M. Katz 17-Jul-1982 3 
: 100 0100 1! REFORMAT the routines within this module. F 
3; 6101 101 1! 3 
> ¥ § 1 § 1 'eenee § 
: 10 818 1 3 
: 104 104 1 LIBRARY ‘'RMSLIB:RMS'; 3 
; 105 0105 1 3 
: 106 0106 1 REQUIRE ‘RMSSRC:RMSIDXDEF'; 5 
: 107 0171 1 3 
; 108 Bits 1 ! Define default PSECTS for code 3 
3; 109 175 1! 3 
; 110 174 1 PSECT ; 
: 111 175 «1 CODE = RMSRMS3(PSECT_ATTR), F 
; 6 g178 1 PLIT = RMSRMSS(PSECT_ATTR); : 
; 11 0177 1 : 
3. (196 0178 1 ! Linkages : 
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RMS. SRCIRMSUPDDEL .B32; 


RMSRE CORD VBN : RLSPRESERVE1. 
RMSUNLOCK HARD : RLSQUERY_AND_LOCK ADDRESSING_MODE (GENERAL); 


: 115 179 1! 

: 118 180 1 LINKAGE 

S; 181 1 L_ERROR_LINK1, 

:; 118 1 ¢ 1 L-PRESERVE1, 

3 119 1 1 L-QUERY AND LOCK, 

: 120 184 1 L-RABREG_67; 

: 121 185 1 L-RABREG_7; 

£9 ¢ 1 § 1 

; 1 1 1 ! External Routines 

: 126 188 1! 

: 125 189 1 EXTERNAL ROUTINE 

.¥ g 190 1 RMSCLEAN_BDB : RLSERROR Lyyet NOVALUE, 
ss 191 1 RMSCSEARTH_TREE : RLSRABREG_67, 

; 128 135 1 RMSF IND _BY_RRV : RLSRABREG_67, 

: 129 193 1 RMSGETNEXT- REC : RLSRABREG_67, 

; 130 194 1 RMSKEY_ DESC : RLSRABREG 67, 

: 131 195 1 RMSQUERY_HARD : RLSQUERY AND LOCK ADDRESSING_MODE (GENERAL), 
= ¢ 196 1 R B_ID RLSRABREG 67, 

0197 1 

; «134 0198 #1 
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i. 199 1 ZSBTTL "RMSUPDDELCOM’ : 
; : 8 0} : GLOBAL ROUTINE RMSUPDDELCOM : RLSRABREG_67 = : 
: 139 § 1 !4+ . 
; 140 8 a ; 
; 1) : } FUNCTIONAL DESCRIPTION: : 
; 148 Be : This routine performs common checks for SUPDATE and $DELETE. | : 
s 145 08 1! 1. As there must be a current primary data record to $DELETE or SUPDATE : 
; 108 8 % : a check is made for one. ‘ 
; 148 0211 1! 2. If this is a SUPDATE, the temporary IRAB locations IRB$L_PUTUP_VBN F 
: 149 0 \¢ 1! and IRBS$W_PUTUP_ID are set up with the RFA address of the current : 
; 150 02135 1! primary data record. This is so code common to SUPDATE and $PUT maybe ; 
; 12) 8 13 : utilized. : 
s 13 0216 1! 3. The current gr snore data record is positioned to by means of its RFA 3 
s 1546 0217 1! address. During this poste enion the ccery data bucket is accessed, : 
RR yr 0218 1! and if the opration is a SDELETE the RRV bucket (if there is one) is $ 
: 156 0219 1! accessed too. If for some reason the primary data record can not be ° 
3; «6157 0220 1! positioned to by its RFA, then it is positioned to by its key value $ 
; 158 0221 1! which will be found in keybuffer 2. This alternate positioning can é 
; 4159 osé¢ 1! only be done if RMS originally positioned to the primary data record F 
: 199 0994 } by means of the primary index. ; 
: 166 0225 1! 4. Unlock the current primary data record or just query its lock status 3 
; 16 0226 1! based upon whether record locking is necessary, automatic record ; 
: 6164 0227 1! locking is or isn't requested, and whether the operation is a $DELETE 3 
: 165 0228 1! or an SUPDATE. $ 
; «6166 fi¥4 .y $ 
: 167 0230 1 ! CALLING SEQUENCE: 3 
; 168 0231 1! 3 
3; 169 O¢36 1! RMSUPDDELCOM() 
; 170 0235 1! 
. a 0234 1 ! INPUT PARAMETERS: 
; ive 0235 1! NONE 
“me fe 0236 1! 
3: 174 0237 1 ! IMPLICIT INPUTS: 
3 Ws 0238 1! 
3 «6176 0239 1! IFAB - address if IFAB 
3 77 0240 1! IFBSW_KBUF SZ - size of a keybuffer 
; 178 0241 1! IFBSV_NORECLK - set, no record locking is necessary 
s 79 bSe6 1! IFBSV_RUP - if set, Recovery Unit is in progress 
; aay rb . IRB$V~RU_RLK - if set, pseudo record locking is enabled 
3 136 $508 1! IR - address of IRAB | 
: 18 aces 2. IRBS$L_KEYBUF - address of the cont teious keybuf fers 
3; «(184 ase 1! IRB$B_RP_KREF - key of reference of last positioning 
; «(185 248 1! IRB$W"UDR_ID - ID of current record(RRV) 
3: 186 49 1! IRB$L_UDR_VBN - VBN of current record(RRV) 
3; 187 50 1! IRB$V~UNLOCK_RP - if set, there is a current record to unlock 
3 138 2) ! IRB$V_UPDATE - if set, current operation is an SUPDATE 
; 190 258 1 ! OUTPUT PARAMETERS: | 
; «191 54 1! NONE 
3; 192 0255 1! 
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' IMPLICIT OUTPUTS: 
IRAB address of the IRAB 
the bit CSH$V_LOCK is set 
address of 8D6 for primary data bucket 
address of BDB for RRV data bucket (or 0) 
size of primary key (if alternate positioning) 
RFA VBN of record to be updated 
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PU RFA ID of record to be updated 
IRB$W_SRCHFCAGS 0 (if alternate positioning is used) 
IRBSV_UNLOCK_RP 0 

REC_ADDR - address of current primary data record 
ROUTINE VALUE: 

BUG - unable to position to primary data record 

CUR - illegal or no current tee data record 

RNL - current primary data record is not locked 

suc = success 


SIDE EFFECTS: 


If RMS must perform a tree search to position to the current primary 
ata record then AP will be trashed. 
If record locking is unnecessary then the lock status of the current 
a theet | data record is not checked. 
If automatic locking is Spec St iee. then the current primary data record 
s_unlocked ony if the operation is a SDELETE. In the case of an 
SUPDATE, just the existance of a lock on the current primary data 
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—— ~QOODOOOSOOSO0 000000 0000000000 000000 
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2 
BEGIN 
EXTERNAL REGISTER 
3 COMMON_RAB_STR, 
3 R_REC_ADDR 
4 R~IDX~DFN_STR; 
LOCAL 
4 FLAGS 
44 STATUS; 
23 Initialize the IRBSL_NXTBDB and IRB$L_LOCK_8DB fields to 0. 
48 {RABCIRBS$L_NXTBDB) = 0; 
49 3 IRABCIRB$SL-LOCK_BDB) = 0; 
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! If this stream does not have a current primary data record then 
} immediately return an error. 


IF .IRABCIRBSL_UDR_VBN) EQLU 0 
. IRABCIRBS$W_UDR_ID] EQLU 0 
RETURN (RMSERR(CUR)); 


If this operation is an SUPDATE then RMS saves the RFA address of the 
current primary data record in a temporary IRAB location (so that code 
common to both SPUT and SUPDATE ance used), and sets up to signal the 
routine RMSFIND_BY_RRV that there is no need to keep a lock on the RRV 
bucket if the current primary data record is not in its original bucket. 


ht ee me meme em 


F_.IRABCIRBSV_UPDATEJ 

NEN BEGIN 
IRABCIRB$L_PUTUP_VBN] = .IRABCIRBSL_UDR_VBN); 
TRABEIRE W-PUTUP=ID] = .IRABLIRBSW-UDR~1DJ; 
ND 


L 0; 
E 


! If this epereston is a SDELETE then RMS sets up to signal RMSFIND_BY_RRV 
! that if the current pr seete data record is not in its original bucket 

! it should “4! a lock on the original bucket anyway since that bucket 

! contains the RRV for the current primary data record which must also be 
deleted as part of the SDELETE. 
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; 
3 
3 
3 
3 
3 
3 
e7 3 : 
28 2 ELSE 
$3 § FLAGS = 1; 
28 r4 ! Position to the current orivery data record locking the primary data 
see § bucket and the RRV bucket (if it is required). 
386 3 IRABCIRB$B_CACHEFLGS] = CSHSM_LOCK; 
288 2 STATUS = RMSFIND_BY_RRV (.IRABCIRBSL_UDR_VBNJ, 
289 2 - IRABLIRB$W_UDR_IDJ, 
$30 § FLAGS); 
$92 i Here's the scoop -- if someone has split the bucket containing 
$o7 ! the desired record but hasn't updated the RRV yet, then 
94 : we're going to get ‘invalid RRV' errors. If we just get 
295 ; one of those errors, then release our bucket locks an 
96 a: retry a finite number of times until we can hopefully get 
44 ; the new and improved RRV. 
99 IF ,STATUS<O, 16> EQLU RMSERR(RRV) 
01 ; INCRU_I FROM 0 TO 25 DO 
o BEGIN 
0 3 IRABCIRB$B_CACHEFLGS] = CSHSM_LOCK; 
04 4 IF (STATUS = RMSFIND_BY_RRV (  }RABCIRBSL_UDR_VBNJ, 
05 4 - IRABCIRB$W_UDR_1DJ, 
06 4 ~ FLAGS) ) | 
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3; Sr 70 THEN 3 
; 308 71 EXITLOOP; : 
3 4 ue END; : 
s OST} 8 74 ! If RMS encounters some obscure 1/0 error during its positioning by F 
; \¢ 8 ie } means of the current record's RFA, return the obscure error. : 
: 314 8 77 IF NOT .STATUS 3 
; 315 78 THEN £ 
3 6316 0379 BEGIN 3 
3 Si” 0380 3 
; 18 tet 4 IF .STATUS<0,16> NEQU RMSERR(DEL) : 
: 330 0388 RETURN . STATUS; : 
s ee 0385 ! If RMS is unable to position to the current primary data record F 
$3 See 0386 : because its RFA has been deleted and is unable to use the alternate : 
: 324 0387 ! positioning method because the primary index was not used during the : 
s Seo 0388 ! positioning to the current primary data record, then also return an F 
> 326 0389 ' error. 3 
; $54 0390 { ‘ 
; 328 0391 IF .IRABCIRB$B_RP_KREF) NEQU 0 : 
3 4 Ba36 THEN : 
: 339 B837 RETURN RMSERR(RRV); : 
3 tae 0395 : ! If RMS is unable to position to the current primary data record 3 
3 335 0396 3 ! because either the RFA has been deleted, or does not currently 3 
s 356 0397 3 : point to the current primary data record, then make use of the F 
s oe 0398 3 ! current record's primary key in keybuffer 2, and the current F 
3 336 0399 ' record's RFA to position to it. F 
3 Sor 0400 ! 3 
; 338 0401 2 
; 339 Bete ; 3 
; 340 040 ! Retrieve the primary key index descriptor and set up to 3 
5 <3 ets: ; position to the first record with this primary key value. : 
; 343 0406 3 RMSKEY_DESC(0); ; 
3 344 0407 3 
3; «345 0408 IRABCIRBSB_KEYSZ) = .1DX_DFNCIDX$B_KEYSZ); : 
: 366 B008 ; IRABCIRB$W_SRCHFLAGS) = 0; : 
; 38 0411 3 ! Continue until either the current primary data record has : 
; «349 0412 3 ' been post rened to, or all records with this primary key 5 
3s 350 Retz ! have been exhausted. : 
: 351 414 i : 
: 26 0415 WHILE 1 : 
. 0416 DO : 
3 $26 0417 4 BEGIN 3 
s 39 0418 4 3 
; 356 0419 4 GLOBAL REGISTER | ; 
: 357 420 4 R_BDB; | 3 
; 358 421 4 3 
; 359 4 3 4 BUILTIN | : 
3 0 4 4 AP; 3 
; 361 424 4 aA : 
; O¢ 425 4 : If RMS is unable to position to the current primary data ; 
: 36 0426 4 ! record by means of this alternate method, return a ‘‘bug 3 
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: 427 4 ! error. : 
; 365 4 8 4 ' : 
H 66 : i} 2 IF NOT RMSCSEARCH_TREE() : 
; re Be 1 ? RETURN RMSERR(RRV); : 
; 370 Be : 4 ! If the record current positioned to is in fact the current : 
3 Sr) 434 & ! primary data record then leave the positioning Loop; ; 
; 37 0435 4 ! otherwise, position immediately to the record that follows . 
| 04 § 4 ! and continue. $ 
3; ore 04 4 ! : 
; S79 0438 4 AP = 3; F 
: 376 0439 4 : 
3 308 ore : IF .IRABCIRB$W_UDR_ID] EQLU RMSRECORD_ID() : 
3 4 bees : - IRABCIRB$L_UDR_VBN] EQLU RMSRECORD_VBN() : 
; 381 0444 4 EXITLOOP : 
; - 0445 4 : 
; 0446 4 RMSGETNEXT_REC(); 3 
> «384 0447 4 : 
; 385 0448 3 END; 3 
; 386 0449 2 END; : 
; 387 0450 2 : 
3 43 bees § Unlocking of the current primary data record. : 
; 390 oc88 r4 : It will never be necessary to unlock the current primary data record | : 
; gl 0454 2 : when the file is opened for exclusive access unless the process is within : 
; $06 occa 2 a Recovery Unit and pseudo record locking is indicated. : 
3; 394 0457 : ! Always call the HARD Lock entry points to map REA held locks to a RNL ; 
3; «395 0458 2 ! status. REA locked records are not protected from concurrent update or $ 
gs 5 0459 § ! delete except by this mechanism. 3 
; 397 460 ‘ 3 
, We 0461 IF NOT .IFABCIFBSV_NORECLK) : 
; wy Rees R : 
: 400 046 (. IFABCIFBSV_RUPJ 3 
: 401 0464 3 
; 402 0465 - IFABCIFB$SV_RU_RLKI) 3 
; 403 0466 § THEN : 
3: 404 0467 BEGIN : 
; 405 0468 3 n P 3 
: 406 0469 3 ! If automatic record locking is specified and the operation is a : 
: 407 0470 H ! $DELETE then the current pr taery data record must be unlocked. Return : 
: rts beo4 an error if the record was not locked in the first place. : 
3; 410 047 IF .IRABCIRBSV_UNLOCK_RP) : 
3 «6411 0474 3 
3 ait 475 NOT .IRABCIRB$V_UPDATE) 3 
s 61 476 EN ; 
3 4146 0477 4 BEGIN : 
3 oi2 bee ? IRABCIRB$V_UNLOCK_RP]) = 0; : 
: 419 Pp B¢8o 4 RETURN_ON_ERROR (RMSUNLOCK_HARD (.IRABCIRB$L_UDR_VBN), : 
: 418 P 0481 4 - IRABLIRB$SW_UDR_IDJ), 3 
3: 4419 P bees 4 BEGIN : 
: 420 P 0485 4 IRABCIRB$V_UPDATE) = 0; 3 
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: 421 P 0484 4 RMSCLEAN_BDB(); 
; 4 : P0485 4 STATUS = RMSERR(RNL); 
zg § 4 $ 5 END) 
> 426 4 4 END 
; 425 488 4 
: 426 489 4 : If either automatic record locking is specified and the operation 
3; 427 490 4 ! is an SUPDATE or automatic record locking is not specified, just 
: 428 0491 4 ! check that the current primacy data record is locked, and return 
; 429 0492 4 : an error if it is not. If this is an SUPDATE and automatic record 
; 450 0495 4 ! Locking is specified, then the current primary data record will be 
: 431 0494 4 ' unlocked after the SUPDATE completes. 
3 «4 ¢ B63? 4 : 
3; 6 49 ; ELSE 
; 434 049 IF RMSQUERY_HARD (. TRABEIRBSL_UDR_VBN1, 
> 435 0498 4 . IRABCIRB$W_UDR-1DJ) NEQU RMSSUC(OK_ALK) 
; 436 0499 3 THEN 
: 437 0500 4 BEGIN 
: 438 0501 4 IRABCIRBS$V_UPDATE) = 0; 
; 439 B206 4 RMSCLEAN BDB(); 
; 440 050 4 RETURN RASERR(RNL); 
: 441 0504 ; END; 
3 tts 0505 
: 44 0506 2 END; 
; 446 0507 2 
; «445 0508 2 RETURN RMSSUC(); 
; 446 0509 2 
3 447 0510 1 END; ' end of routine 
-TITLE RM3UPDDEL 
-IDENT \v04-000\ 
EXTRN RMSCLEAN_BDB, RMSCSEARCH TREE 
-EXTRN RMSFIND BY_RRV, RMSGETNERT_REC 
-EXTRN RMSKEY_ BEST, RMSQUERY_HARD 
-EXTRN RMSRECORD_ID, RMSRECORD_VBN 
-EXTRN RMSUNLOCK~HARD 
-PSECT RMSRMS3,NOWRT, GBL, PIC,2 
1C BB 00000 RMSUPDDELCOM:: 
PUSHR #*M<R2,R3,R4> 
3C¢ )6=— AD.s«OS -0000 CLRL 60( IRAB) 
084 C9 04 0000 CLRL 13 ti RAB) 
50 0BO C9 00 00009 MOVL 176(IRAB), RO 
08 13 0000 BEQL 1$ 
oopc ¢9 B5 0001 TSTW 188(IRAB) 
08 i2 00014 BNEQ 3$ 
50 8484 _*BF Ht 0016 1$: MOVZWL #33972, RO 
OOF 1 oie $3: RWW 17$ 
OF 0 Ag 9 E1 QOOIE 35$: BBC #3, $f inas) 4$ 
78 «AD 09 00 MOVL RO) 120(TRAB) 
0080 C9 00BC g r MOVW 188(IRAB), 128(IRAB) 
; D4 CLRL ae 
11 BRB 5 
53 1 4 0 4$: MOVL #\, FLAGS 
40 Ag 1 00035 5$: MOVB #1, 64(IT RAB) 
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RMSUPDDEL 1S-Se =1984 02:10:17 AX=11 Bliss-32 V4.0-74 
Vv04=-000 RMSUPDDELCOM 16-Sep-19 ” et AMS -SRCIRM UPDDEL .B32; 


53 DD 00039 PUSHL FLAGS 
7E goBc 23 RP 0088 MOVZWL 188(IRAB), -(SP) 
0B °9 p i USHL 176(IRAB) 
00606 0044 SBW = RMSF IND _BY_RRV 
SE Of C 0 47 ADDL2 #1 
8684 F BI 4A CMP sTAfus. #34436 
¢! 12 0004F BNEQ 5 
2 04 00051 CLRL I 
40 Ad 91 90 9053 48 MOVB = #1, 64(IRAB) 
3 pd 005 PUSHL F 
7E osc C9 3c 00059 MOVZ2WL 188(IRAB), =-<SP) 
0080 ‘9 bo 9005 PUSHL  176(IRAB) 
00606 6 BSBW = RMS$FIND_BY_RRV 
5 o¢ C0 0006 ADDL2 #1 p 
5 0 €E8 00068 BLBS STATUS, 12$ 
52 D6 00068 INCL 
19 52 D1 0006D CMPL 1, #25 
FI 1B 00070 BLEQU 6$ 
49 0 €8 00072 7$ BLBS _—— STATUS, 12s 
8262 BF 50 81 0007 CMPW STATUS. #33378 
9F if 0007A BNEQ 2 
00c2 ¢c9 95 O007C TSTB =: 194 (IRAB) 
17 12 00080 BNEQ 9$ 
7E D4 00082 LRL 3s = (SP) 
00006 30 00084 SBW sa RMSKEY_DESC 
SE 04 CO 00087 ADDL2 #4, SP 
00A6 «C9 20 AZ 90 OOOBA MOVS 32¢IDX_DFN), 166(IRAB) 
42. Ad 84 00090 CLRW 86 66 CI 
00006 30 00093 8$ BSBW  § RMSCSEARCH_TREE 
07 50 8 00096 BLBS) sR 
50 8684 BF 3C 00099 9S MOVZWL #34436, RO 
7C 11 0009€ BRB 17$ 
SC 03 b0 O00A0 10$ MOVL #3, AP 
00006 30 000A3 BSBW § RM$RECORD_ID 
50 ooBc «C9 10 00 ED 00006 CMPZV #0, #16, TBB8(IRAB), RO 
OA 12 OO0AD BNEQ 118 
00006 30 OOOAF BSBW = RMSRECORD_VBN 
50 0080 C9 D1 0008 CMPL  176(IRAB)> RO 
05 13 0008 BEQL -'12$ 
00006 30 00089 11$:  BSBW = RMSGETNEXT_REC 
D5 11 0008 BRB 8$ 
0c 06 AA 03 €1 OOOBE 128: BBC #3, 6(IFAB), 13$ 
50 QOA2 CA 02 £1 000C BBC #2. 162(1FAB), 16% 
4A 002 CA E1 99 C BBC #3. 162(1FAB). 16$ 
1E 05 Ag £1 OOOCF 13$: BBC #5. SCIRAB), 14% 
19 06 Ag 0 00004 BBS a3 6(IRAB). 14$ 
05 ag 0 8A 00009 BICB2s# : 5 (IRABS 
52 9oB¢ C9 3C 0000 MOVZWL 18 (1RAB), R2 
51 0B0 C9 DO O00E MOVL  176(IRAB). R1 
000000006 p if O0E JSB RMSUNLOCK HARD 
29 F OE BLBS STATUS, BS 
1 1 O00F BRB 5$ 
52 9B¢ C9 3C OOOF2 14$: MOVZWL 18B(1RAB), R2 
51 0 9 dO O00F MOVL  176(IRAB). R1 
000000006 0 16 OO0OFC JSB RMSQUERY HARD 
00008039 8F D1 0198 CMPL =e RO, «#32825 
0€ 13 001 BEQL 16$ 
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0 
RM3UPDDEL 16-Sep-1984 AX-11 B -32 v4.0 
v04 RMSUPDDELCOM 14-Se 20-1984 9: 49: lg ERAS. sre drat UPDDEL. g35 
06 Ag A 001 15$: BICB2 #8, 6(IRAB) 
00 8c 0 1i8f BSBW RM i _ 
50 81A0 . \16 MOVZWL #33186. R 
3°6«271 11 Boe 1 
5c 1 00 00°19 198: MOVL #i, o 
1C BA 11C 17$: POPR #*M<R2,R3,R4> 
05 OO11E RSB 
; Routine Size: 287 bytes, Routine Base: RMSRMS3 + 0000 
; 468 0511 «1 
; 449 3216 1 END 
; 450 051 1 
; 451 0514 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
:  RMSRMS3 287 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Beh al ace ps ies cles — fa? ty aa Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 46 1 154 00:00.4 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:RM3SUPDDEL/OBJ=OBJ$:RMSUPDDEL MSRC$:RM3UPDDEL/UPDATE=(ENHS:RM3UPDDEL) 
3; Size: 287 gode + 0 data bytes 
; Run Time 
; Elapsed i Saes 
3 Lines/CPU Min: 338) 
; Lexemes/CPU-Min: 15554 
$ Y Used: 118 pages 
; Compilation Complete 
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